Modifying Right-Click Menu
See Also
Description

The following sample code shows how to modify the right-click menu by modifying the Data menu. Visual Basic .NET
Private Sub SBO_Application_RightClickEvent(ByRef eventInfo As SAPbouiCOM.ContextMenuInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.RightClickEvent

    If eventInfo.FormUID = "RightClk" Then

        If (eventInfo.BeforeAction = True) Then

            Dim oMenuItem As SAPbouiCOM.MenuItem

            Dim oMenus As SAPbouiCOM.Menus



            Try

                Dim oCreationPackage As SAPbouiCOM.MenuCreationParams

                oCreationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)



                oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING

                oCreationPackage.UniqueID = "OnlyOnRC"

                oCreationPackage.String = "Only On Right Click"

                oCreationPackage.Enabled = True



                oMenuItem = SBO_Application.Menus.Item("1280") 'Data'

                oMenus = oMenuItem.SubMenus

                oMenus.AddEx(oCreationPackage)

            Catch ex As Exception

                MessageBox.Show(ex.Message)

            End Try

        Else

            Dim oMenuItem As SAPbouiCOM.MenuItem

            Dim oMenus As SAPbouiCOM.Menus



            Try

                SBO_Application.Menus.RemoveEx("OnlyOnRC")

            Catch ex As Exception

                MessageBox.Show(ex.Message)

            End Try

        End If

    End If

End Sub